home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Tools & Utilities
/
Collection of Tools and Utilities.iso
/
basic
/
iqb9103.zip
/
ISHERC.BAS
< prev
next >
Wrap
BASIC Source File
|
1991-03-08
|
326b
|
18 lines
' $INCLUDE: 'QB.BI'
DIM Regs AS RegType
Regs.AX = &HEF00
Regs.DX = &H00FF
CALL Interrupt (&H10, Regs, Regs)
DL = Regs.DX MOD 256
SELECT CASE DL
CASE 0
Print "MS-HERC is loaded."
CASE 255
PRINT "MS-HERC is not loaded."
CASE ELSE
PRINT "I am confused. DL = ";DL
END SELECT
END